Aminet 7/Aminet 7 - August 1995.iso/Aminet/comm/mebbs/d_conf06.lha/metconf.rexx

OS/2 REXX Batch file | 1994-11-20 | 30KB | 2 lines

/* Optimized with RexxOpt 1.6 */
signal on ERROR;parse arg LineNumber;DoorName="METCONF";if(~show('l',"mebbsarexx.library"))then;do;say "Opening mebbsarexx.library";if(~addlib("mebbsarexx.library",0,-30,0))then;do;say "Could not open library";exit 10;end;end;ZZZ=0;YYY=89;blackonred="";blackonyellow="";blackoncyan="";blackongreen="";ansireset="";yellow="";cyan="";violet="";green="";blue="";bluey="";red="";p=0;J=0;mainpath='T:';CLS='H';ii=0;confvar.1="";confvar.2="";call GetVar DoorName,LineNumber,20;level=result;call GetVar DoorName,LineNumber,1;username=result;call GetVar DoorName,LineNumber,4;city=result;username=upper(username);call open filer,("T:LINE"linenumber),'W';call writeln filer,username;call writeln filer,city;call writeln filer,"In the Metnet Conference Chatline ";call close filer;if linenumber=0 then newpath="T:0";if linenumber=1 then newpath="T:1";if linenumber=2 then newpath="T:2";if linenumber=3 then newpath="T:3";if linenumber=4 then newpath="T:4";if linenumber=5 then newpath="T:5";call readfile doorname,linenumber,"doors:metconf/confenter.txt";call Open PRESENT,(newpath),'W';call writeln present,username;call writeln present,"";call writeln present,"";call close PRESENT;if exists("T:0")=1 then address command 'run >NIL: sendtoline 0 "'username' from 'city' enters " NO';if exists("T:1")=1 then address command 'run >NIL: sendtoline 1 "'username' from 'city' enters " NO';if exists("T:2")=1 then address command 'run >NIL: sendtoline 2 "'username' from 'city' enters " NO';if exists("T:3")=1 then address command 'run >NIL: sendtoline 3 "'username' from 'city' enters " NO';if exists("T:4")=1 then address command 'run >NIL: sendtoline 4 "'username' from 'city' enters " NO';if exists("T:5")=1 then address command 'run >NIL: sendtoline 5 "'username' from 'city' enters " NO';LISTWHO:;ii=0;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call message doorname,linenumber,"The following are in conference: ",1;call message doorname,linenumber,"",1;call message doorname,linenumber,"# Username           Flags ",1;do until ii=6;call message doorname,linenumber,""ii||" ",0;if exists('T:'||ii)=1 then;do;n=0;newpath="T:"||ii;call Open file,(newpath),'R';do until eof(file);line.n=readln(file);n=n+1;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;end;call close file;call message doorname,linenumber,line.0||" "||line.1||line.2,1;end;if exists('T:'||ii)=0 then call message doorname,linenumber,"<empty>",1;ii=ii+1;end;call message doorname,linenumber," ",1;if zzz=0 then call maininput;call hotkey doorname,linenumber,"Would you like to send a private message? (y/N): ";privateM=upper(result);call message doorname,linenumber,"Selected: "||privatem,0;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;if privateM ~="Y" then;do;call message doorname,linenumber,"NOWT",1;call MAINinput;end;if privateM="Y" then;do;call message doorname,linenumber," ",1;call message doorname,linenumber,">Input message below :                             <",1;call prompt doorname,linenumber,">",50;inputS=result;call hotkey doorname,linenumber,"Send to which line? :";lineN=upper(result);call message doorname,linenumber," ",1;call message doorname,linenumber,"Was sent to line:"||lineN,0;call message doorname,linenumber," ",1;call message doorname,linenumber," ",1;address command 'run >NIL: sendtoline 'lineN '"Private message from :'username'" NO';call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;address command 'run >NIL: sendtoline 'lineN '"'inputS'" NO';end;GAG=line.1;call message doorname,linenumber,gag,1;call maininput;maininput:;rextaxi="zz";roomnum=0;zzz=1;do forever;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;n=0;newpath="T:"||linenumber;call Open rfile,(newpath),'R';do until eof(rfile);line.n=readln(rfile);n=n+1;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;end;call close rfile;gag=line.1;if gag="G" then;do until line.1="!";n=0;call prompt doorname,linenumber,"YOU ARE GAGGED - Type '@' to exit or just watch",2;gagm=upper(result);call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;if gagm="/Q"|gagm="Q"|gagm="q"then call end_it;newpath="T:"||linenumber;call Open rfile,(newpath),'R';do until eof(rfile);line.n=readln(rfile);n=n+1;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;end;call close rfile;end;if yyy=0 then call message doorname,linenumber,"",0;if yyy=89 then call message doorname,linenumber,"Press @ to Exit Conference",0;taxi="";yyy=0;BS='08'x;CR='13'x;u=0;if gag ~="G" then;do until u=160|u>160;u=u+1;call hotkey doorname,linenumber,"";confvar.u=result;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call message doorname,linenumber,""confvar.u,0;if confvar.u="@" then call end_it;if confvar.u='"' then confvar.u="";if confvar.u="#" then;do;call message doorname,linenumber,"",1;call prompt doorname,linenumber,"Command mode (? for help):",7;taxi=upper(result);u=0;rextaxi="u";call jump;end;if confvar.u=BS then;do;call message doorname,linenumber,"P",0;u=u-2;if u<=0 then u=0;end;newpath="T:";if confvar.u="" then;do;count=u;if count<2 then;do;confvar1="";call maininput;end;u=2000;end;end;if u=160 then count=u;if count=0|count=1 then;do;count=2;string1=" ";end;u=1;zebra=0;zzebra=0;string1="";string2="";string3="";do until u=count;if u<=55 then string1=string1||confvar.u;if u>55&u<=110 then string2=string2||confvar.u;if u>110&u<=162 then string3=string3||confvar.u;u=u+1;end;if count=0|count=1 then;do;count=3;string1="I am a complete utter wally that keep hitting return.";end;confvar1=string1;confvar2=string2;confvar3=string3;newpath="dh3:confdata";if exists(newpath)=0 then;do;call Open PRESENT,(newpath),'W';call close PRESENT;end;call Open PRESENT,(newpath),'A';call writeln present,username;call writeln present,string1;call writeln present,string2;call writeln present,string3;call close PRESENT;if count<55 then;do;confvar2=" ";confvar3=" ";end;if count<110&count>55 then confvar3=" ";if count>55 then zebra=90;if count>110 then;do;zzebra=100;zebra=90;end;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;JUMP:;if taxi="@" then call end_it;if taxi="WHO"|taxi="/W" then;do;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;address command "WHO >ram:whois";call readfile doorname,linenumber,"ram:whois";call maininput;end;if level=31&(taxi="GAG"|taxi="/G") then;do;call prompt doorname,linenumber,"Enter user's line number to gag? :",25;gagline=result;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;if gagline=linenumber then;do;call message doorname,linenumber,"Bit daft gagging yourself",1;call maininput;end;if exists('T:'||gagline)=0 then;do;call hotkey doorname,linenumber,"That line is empty :";call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call maininput;end;n=0;newpath="T:"||gagline;call Open gagfile,(newpath),'R';do until eof(gagfile);line.n=readln(gagfile);n=n+1;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;end;call close gagfile;n=0;call Open gagfile,(newpath),'W';do until n=2;if n=0 then call writeln(gagfile,line.n);if n=1 then;do;call writeln(gagfile,"G");end;n=n+1;end;call close gagfile;call message doorname,linenumber,"That users output will no longer display",1;address command 'run >NIL: sendtoline 'gagline '"'YOU HAVE BEEN GAGGED AND YOUR TEXT NO LONGER IS OUTPUT'" NO';GAG=line.1;call maininput;end;if level=31&(taxi="UNGAG"|taxi="/UNG") then;do;call prompt doorname,linenumber,"Enter user's line number to UNgag? :",25;gagline=result;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;if gagline=linenumber then;do;call message doorname,linenumber,"Bit daft UNgagging yourself",1;call maininput;end;n=0;if exists('T:'||gagline)=0 then;do;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call hotkey doorname,linenumber,"That line is empty :";call maininput;end;newpath="T:"||gagline;call Open gagfile,(newpath),'R';do until eof(gagfile);line.n=readln(gagfile);n=n+1;end;call close gagfile;n=0;call Open gagfile,(newpath),'W';do until n=2;if n=0 then call writeln(gagfile,line.n);if n=1 then;do;call writeln(gagfile,"!");end;n=n+1;end;call close gagfile;call message doorname,linenumber,"That user is no longer gagged",1;address command 'run >NIL: sendtoline 'gagline '"'YOU ARE NO LONGER GAGGED'" NO';call maininput;end;if taxi="ROOM"|taxi="/R" then;do;call prompt doorname,linenumber,"Enter Room Number :",4;roomnum=result;call message doorname,linenumber,CLS,1;call message doorname,linenumber,"---------------------------------------------------------------------",1;call message doorname,linenumber,"You have entered room "roomnum,1;end;if taxi="LIST"|taxi="/L" then call listwho;if taxi="HIDE"|taxi="/H" then;do;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call message doorname,linenumber,"Hiding means that your text is invisible to that user.",1;call prompt doorname,linenumber,"Enter line number of user to hide from :",25;hideline=result;call message doorname,linenumber,"Person on line "hideline" cannot read your text",1;if hideline=linenumber then;do;call message doorname,linenumber,"Bit Prattish Hiding from  yourself",1;call maininput;end;if hideline=0 then secret=10;if hideline=1 then secret=20;if hideline=2 then secret=30;if hideline=3 then secret=40;if hideline=4 then secret=50;if hideline=5 then secret=60;address command 'run >NIL: sendtoline 'hideline '"'Somebody is secretly gossiping about you!!'" NO';call maininput;end;if taxi="UNHIDE"|taxi="/UNH" then;do;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call message doorname,linenumber,"",1;call message doorname,linenumber,"You are no longer hiding from that person.",1;call message doorname,linenumber,"",1;secret=0;address command 'run >NIL: sendtoline 'hideline '"'No longer Gossiping about you.'" NO';call maininput;end;if taxi="MUFF"|taxi="/MU" then;do;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;call message doorname,linenumber,"Muffling means that you don't see what a user writes. If someone is a PAIN!",1;call prompt doorname,linenumber,"Enter line number of user to Muffle :",25;muffleline=result;call message doorname,linenumber,"Person on line "muffleline" is muffled.",1;if muffleline=linenumber then;do;call message doorname,linenumber,"Bit Foolis]h Muffling yourself. It won't - your lucky.",1;call maininput;end;if muffleline=0 then ignore=10;if muffleline=1 then ignore=20;if muffleline=2 then ignore=30;if muffleline=3 then ignore=40;if muffleline=4 then ignore=50;if muffleline=5 then ignore=60;call maininput;end;if taxi="UNMUFF"|taxi="/UNMU" then;do;call message doorname,linenumber,"",1;call message doorname,linenumber,"You are no longer cruelly muffling that person.",1;call message doorname,linenumber,"",1;ignore=0;address command 'run >NIL: sendtoline 'muffleline '"'No longer muffling you.'" NO';call maininput;end;if taxi="ACTION"|taxi="/ACT"|taxi="ACT" then;do;call message doorname,linenumber,"",1;call message doorname,linenumber,"Actions let you send like: "Jon Witty violently attacks you."",1;call message doorname,linenumber,"",1;call prompt doorname,linenumber,"ACTION >",35;instring=result;call message doorname,linenumber,"",1;call message doorname,linenumber,"",1;address command 'run >NIL: sendtoline 0 "'username' 'instring' " NO';address command 'run >NIL: sendtoline 1 "'username' 'instring' " NO';address command 'run >NIL: sendtoline 2 "'username' 'instring' " NO';address command 'run >NIL: sendtoline 3 "'username' 'instring' " NO';address command 'run >NIL: sendtoline 4 "'username' 'instring' " NO';address command 'run >NIL: sendtoline 5 "'username' 'instring' " NO';call maininput;end;if taxi="HELP"|taxi="/?"|taxi="?"|taxi="quit" then;do;call readfile doorname,linenumber,"doors:metconf/helpme.txt";call maininput;end;if taxi="TIME"|taxi="/T"|taxi="time" then;do;call readfile doorname,linenumber,"doors:metconf/conftime.txt";call maininput;end;if rextaxi="u" then;do;call message doorname,linenumber,"",1;call message doorname,linenumber,"Invalid entry",1;call maininput;end;call message doorname,linenumber,"",1;call message doorname,linenumber,"",1;call message doorname,linenumber,""username"",1;call message doorname,linenumber,confvar1,0;call message doorname,linenumber,confvar2,0;call message doorname,linenumber,confvar3,1;res=exists('T:1');if res=1 then;do;if linenumber=0&secret ~=20&ignore ~=10 then address command 'run >NIL: sendtoline 1 "E'username'" NO';if linenumber=0&secret ~=20&ignore ~=10 then address command 'run >NIL: sendtoline 1 "'confvar1'" NO';if linenumber=0&secret ~=20&ignore ~=10&zebra=90 then address command 'run >NIL: sendtoline 1 "'confvar2'" NO';if linenumber=0&secret ~=20&ignore ~=10&zzebra=100 then address command 'run >NIL: sendtoline 1 "'confvar3'" NO';if linenumber=0&secret ~=20&ignore ~=10 then address command 'run >NIL: sendtoline 1 "" NO';if linenumber=2&secret ~=20&ignore ~=30 then address command 'run >NIL: sendtoline 1 "E'username'" NO';if linenumber=2&secret ~=20&ignore ~=30 then address command 'run >NIL: sendtoline 1 "'confvar1'" NO';if linenumber=2&secret ~=20&ignore ~=30&zebra=90 then address command 'run >NIL: sendtoline 1 "'confvar2'" NO';if linenumber=2&secret ~=20&ignore ~=30&zzebra=100 then address command 'run >NIL: sendtoline 1 "'confvar3'" NO';if linenumber=2&secret ~=20&ignore ~=10 then address command 'run >NIL: sendtoline 1 "" NO';if linenumber=5&secret ~=20&ignore ~=60 then address command 'run >NIL: sendtoline 1 "E'username'" NO';if linenumber=5&secret ~=20&ignore ~=60 then address command 'run >NIL: sendtoline 1 "'confvar1'" NO';if linenumber=5&secret ~=20&ignore ~=60&zebra=90 then address command 'run >NIL: sendtoline 1 "'confvar2'" NO';if linenumber=5&secret ~=20&ignore ~=60&zzebra=100 then address command 'run >NIL: sendtoline 1 "'confvar3'" NO';if linenumber=5&secret ~=20&ignore ~=10 then address command 'run >NIL: sendtoline 1 "" NO';if linenumber=3&secret ~=20&ignore ~=40 then address command 'run >NIL: sendtoline 1 "E'username'" NO';if linenumber=3&secret ~=20&ignore ~=40 then address command 'run >NIL: sendtoline 1 "'confvar1'" NO';if linenumber=3&secret ~=20&ignore ~=40&zebra=90 then address command 'run >NIL: sendtoline 1 "'confvar2'" NO';if linenumber=3&secret ~=20&ignore ~=40&zzebra=100 then address command 'run >NIL: sendtoline 1 "'confvar3'" NO';if linenumber=3&secret ~=20&ignore ~=10 then address command 'run >NIL: sendtoline 1 "" NO';if linenumber=4&secret ~=20&ignore ~=50 then address command 'run >NIL: sendtoline 1 "E'username'" NO';if linenumber=4&secret ~=20&ignore ~=50 then address command 'run >NIL: sendtoline 1 "'confvar1'" NO';if linenumber=4&secret ~=20&ignore ~=50&zebra=90 then address command 'run >NIL: sendtoline 1 "'confvar2'" NO';if linenumber=4&secret ~=20&ignore ~=50&zzebra=100 then address command 'run >NIL: sendtoline 1 "'confvar3'" NO';if linenumber=4&secret ~=20&ignore ~=10 then address command 'run >NIL: sendtoline 1 "" NO';end;res=exists('T:5');if res=1 then;do;if linenumber=0&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 5 "E'username'" NO';if linenumber=0&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 5 "'confvar1'" NO';if linenumber=0&secret ~=60&ignore ~=10&zebra=90 then address command 'run >NIL: sendtoline 5 "'confvar2'" NO';if linenumber=0&secret ~=60&ignore ~=10&zzebra=100 then address command 'run >NIL: sendtoline 5 "'confvar3'" NO';if linenumber=0&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 5 "" NO';if linenumber=2&secret ~=60&ignore ~=30 then address command 'run >NIL: sendtoline 5 "E'username'" NO';if linenumber=2&secret ~=60&ignore ~=30 then address command 'run >NIL: sendtoline 5 "'confvar1'" NO';if linenumber=2&secret ~=60&ignore ~=30&zebra=90 then address command 'run >NIL: sendtoline 5 "'confvar2'" NO';if linenumber=2&secret ~=60&ignore ~=30&zzebra=100 then address command 'run >NIL: sendtoline 5 "'confvar3'" NO';if linenumber=2&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 5 "" NO';if linenumber=1&secret ~=60&ignore ~=20 then address command 'run >NIL: sendtoline 5 "E'username'" NO';if linenumber=1&secret ~=60&ignore ~=20 then address command 'run >NIL: sendtoline 5 "'confvar1'" NO';if linenumber=1&secret ~=60&ignore ~=20&zebra=90 then address command 'run >NIL: sendtoline 5 "'confvar2'" NO';if linenumber=1&secret ~=60&ignore ~=20&zzebra=100 then address command 'run >NIL: sendtoline 5 "'confvar3'" NO';if linenumber=1&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 5 "" NO';if linenumber=3&secret ~=60&ignore ~=40 then address command 'run >NIL: sendtoline 5 "E'username'" NO';if linenumber=3&secret ~=60&ignore ~=40 then address command 'run >NIL: sendtoline 5 "'confvar1'" NO';if linenumber=3&secret ~=60&ignore ~=40&zebra=90 then address command 'run >NIL: sendtoline 5 "'confvar2'" NO';if linenumber=3&secret ~=60&ignore ~=40&zzebra=100 then address command 'run >NIL: sendtoline 5 "'confvar3'" NO';if linenumber=3&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 5 "" NO';if linenumber=4&secret ~=60&ignore ~=50 then address command 'run >NIL: sendtoline 5 "E'username'" NO';if linenumber=4&secret ~=60&ignore ~=50 then address command 'run >NIL: sendtoline 5 "'confvar1'" NO';if linenumber=4&secret ~=60&ignore ~=50&zebra=90 then address command 'run >NIL: sendtoline 5 "'confvar2'" NO';if linenumber=4&secret ~=60&ignore ~=50&zzebra=100 then address command 'run >NIL: sendtoline 5 "'confvar3'" NO';if linenumber=4&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 5 "" NO';end;res=exists('T:3');if res=1 then;do;if linenumber=0&secret ~=40&ignore ~=10 then address command 'run >NIL: sendtoline 3 "E'username'" NO';if linenumber=0&secret ~=40&ignore ~=10 then address command 'run >NIL: sendtoline 3 "'confvar1'" NO';if linenumber=0&secret ~=40&ignore ~=10&zebra=90 then address command 'run >NIL: sendtoline 3 "'confvar2'" NO';if linenumber=0&secret ~=40&ignore ~=10&zzebra=100 then address command 'run >NIL: sendtoline 3 "'confvar3'" NO';if linenumber=0&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 3 "" NO';if linenumber=2&secret ~=40&ignore ~=30 then address command 'run >NIL: sendtoline 3 "E'username'" NO';if linenumber=2&secret ~=40&ignore ~=30 then address command 'run >NIL: sendtoline 3 "'confvar1'" NO';if linenumber=2&secret ~=40&ignore ~=30&zebra=90 then address command 'run >NIL: sendtoline 3 "'confvar2'" NO';if linenumber=2&secret ~=40&ignore ~=30&zzebra=100 then address command 'run >NIL: sendtoline 3 "'confvar3'" NO';if linenumber=2&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 3 "" NO';if linenumber=1&secret ~=40&ignore ~=20 then address command 'run >NIL: sendtoline 3 "E'username'" NO';if linenumber=1&secret ~=40&ignore ~=20 then address command 'run >NIL: sendtoline 3 "'confvar1'" NO';if linenumber=1&secret ~=40&ignore ~=20&zebra=90 then address command 'run >NIL: sendtoline 3 "'confvar2'" NO';if linenumber=1&secret ~=40&ignore ~=20&zzebra=100 then address command 'run >NIL: sendtoline 3 "'confvar3'" NO';if linenumber=1&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 3 "" NO';if linenumber=5&secret ~=40&ignore ~=60 then address command 'run >NIL: sendtoline 3 "E'username'" NO';if linenumber=5&secret ~=40&ignore ~=60 then address command 'run >NIL: sendtoline 3 "'confvar1'" NO';if linenumber=5&secret ~=40&ignore ~=60&zebra=90 then address command 'run >NIL: sendtoline 3 "'confvar2'" NO';if linenumber=5&secret ~=40&ignore ~=60&zzebra=100 then address command 'run >NIL: sendtoline 3 "'confvar3'" NO';if linenumber=5&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 3 "" NO';if linenumber=4&secret ~=40&ignore ~=50 then address command 'run >NIL: sendtoline 3 "E'username'" NO';if linenumber=4&secret ~=40&ignore ~=50 then address command 'run >NIL: sendtoline 3 "'confvar1'" NO';if linenumber=4&secret ~=40&ignore ~=50&zebra=90 then address command 'run >NIL: sendtoline 3 "'confvar2'" NO';if linenumber=4&secret ~=40&ignore ~=50&zzebra=100 then address command 'run >NIL: sendtoline 3 "'confvar3'" NO';if linenumber=4&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 3 "" NO';end;res=exists('T:4');if res=1 then;do;if linenumber=0&secret ~=50&ignore ~=10 then address command 'run >NIL: sendtoline 4 "E'username'" NO';if linenumber=0&secret ~=50&ignore ~=10 then address command 'run >NIL: sendtoline 4 "'confvar1'" NO';if linenumber=0&secret ~=50&ignore ~=10&zebra=90 then address command 'run >NIL: sendtoline 4 "'confvar2'" NO';if linenumber=0&secret ~=50&ignore ~=10&zzebra=100 then address command 'run >NIL: sendtoline 4 "'confvar3'" NO';if linenumber=0&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 4 "" NO';if linenumber=2&secret ~=50&ignore ~=30 then address command 'run >NIL: sendtoline 4 "E'username'" NO';if linenumber=2&secret ~=50&ignore ~=30 then address command 'run >NIL: sendtoline 4 "'confvar1'" NO';if linenumber=2&secret ~=50&ignore ~=30&zebra=90 then address command 'run >NIL: sendtoline 4 "'confvar2'" NO';if linenumber=2&secret ~=50&ignore ~=30&zzebra=100 then address command 'run >NIL: sendtoline 4 "'confvar3'" NO';if linenumber=2&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 4 "" NO';if linenumber=1&secret ~=50&ignore ~=20 then address command 'run >NIL: sendtoline 4 "E'username'" NO';if linenumber=1&secret ~=50&ignore ~=20 then address command 'run >NIL: sendtoline 4 "'confvar1'" NO';if linenumber=1&secret ~=50&ignore ~=20&zebra=90 then address command 'run >NIL: sendtoline 4 "'confvar2'" NO';if linenumber=1&secret ~=50&ignore ~=20&zzebra=100 then address command 'run >NIL: sendtoline 4 "'confvar3'" NO';if linenumber=1&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 4 "" NO';if linenumber=5&secret ~=50&ignore ~=60 then address command 'run >NIL: sendtoline 4 "E'username'" NO';if linenumber=5&secret ~=50&ignore ~=60 then address command 'run >NIL: sendtoline 4 "'confvar1'" NO';if linenumber=5&secret ~=50&ignore ~=60&zebra=90 then address command 'run >NIL: sendtoline 4 "'confvar2'" NO';if linenumber=5&secret ~=50&ignore ~=60&zzebra=100 then address command 'run >NIL: sendtoline 4 "'confvar3'" NO';if linenumber=5&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 4 "" NO';if linenumber=3&secret ~=50&ignore ~=40 then address command 'run >NIL: sendtoline 4 "E'username'" NO';if linenumber=3&secret ~=50&ignore ~=40 then address command 'run >NIL: sendtoline 4 "'confvar1'" NO';if linenumber=3&secret ~=50&ignore ~=40&zebra=90 then address command 'run >NIL: sendtoline 4 "'confvar2'" NO';if linenumber=3&secret ~=50&ignore ~=40&zzebra=100 then address command 'run >NIL: sendtoline 4 "'confvar3'" NO';if linenumber=3&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 4 "" NO';end;res=exists('T:0');if res=1 then;do;if linenumber=1&secret ~=10&ignore ~=20 then address command 'run >NIL: sendtoline 0 "E'username'" NO';if linenumber=1&secret ~=10&ignore ~=20 then address command 'run >NIL: sendtoline 0 "'confvar1'" NO';if linenumber=1&secret ~=10&ignore ~=20&zebra=90 then address command 'run >NIL: sendtoline 0 "'confvar2'" NO';if linenumber=1&secret ~=10&ignore ~=20&zzebra=100 then address command 'run >NIL: sendtoline 0 "'confvar3'" NO';if linenumber=1&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 0 "" NO';if linenumber=2&secret ~=10&ignore ~=30 then address command 'run >NIL: sendtoline 0 "E'username'" NO';if linenumber=2&secret ~=10&ignore ~=30 then address command 'run >NIL: sendtoline 0 "'confvar1'" NO';if linenumber=2&secret ~=10&ignore ~=30&zebra=90 then address command 'run >NIL: sendtoline 0 "'confvar2'" NO';if linenumber=2&secret ~=10&ignore ~=30&zzebra=100 then address command 'run >NIL: sendtoline 0 "'confvar3'" NO';if linenumber=2&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 0 "" NO';if linenumber=5&secret ~=10&ignore ~=60 then address command 'run >NIL: sendtoline 0 "E'username'" NO';if linenumber=5&secret ~=10&ignore ~=60 then address command 'run >NIL: sendtoline 0 "'confvar1'" NO';if linenumber=5&secret ~=10&ignore ~=60&zebra=90 then address command 'run >NIL: sendtoline 0 "'confvar2'" NO';if linenumber=5&secret ~=10&ignore ~=60&zzebra=100 then address command 'run >NIL: sendtoline 0 "'confvar3'" NO';if linenumber=5&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 0 "" NO';if linenumber=3&secret ~=10&ignore ~=40 then address command 'run >NIL: sendtoline 0 "E'username'" NO';if linenumber=3&secret ~=10&ignore ~=40 then address command 'run >NIL: sendtoline 0 "'confvar1'" NO';if linenumber=3&secret ~=10&ignore ~=40&zebra=90 then address command 'run >NIL: sendtoline 0 "'confvar2'" NO';if linenumber=3&secret ~=10&ignore ~=40&zzebra=100 then address command 'run >NIL: sendtoline 0 "'confvar3'" NO';if linenumber=3&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 0 "" NO';if linenumber=4&secret ~=10&ignore ~=50 then address command 'run >NIL: sendtoline 0 "E'username'" NO';if linenumber=4&secret ~=10&ignore ~=50 then address command 'run >NIL: sendtoline 0 "'confvar1'" NO';if linenumber=4&secret ~=10&ignore ~=50&zebra=90 then address command 'run >NIL: sendtoline 0 "'confvar2'" NO';if linenumber=4&secret ~=10&ignore ~=50&zzebra=100 then address command 'run >NIL: sendtoline 0 "'confvar3'" NO';if linenumber=4&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 0 "" NO';end;res=exists('T:2');if res=1 then;do;if linenumber=1&secret ~=30&ignore ~=20 then address command 'run >NIL: sendtoline 2 "E'username'" NO';if linenumber=1&secret ~=30&ignore ~=20 then address command 'run >NIL: sendtoline 2 "'confvar1'" NO';if linenumber=1&secret ~=30&ignore ~=20&zebra=90 then address command 'run >NIL: sendtoline 2 "'confvar2'" NO';if linenumber=1&secret ~=30&ignore ~=20&zzebra=100 then address command 'run >NIL: sendtoline 2 "'confvar3'" NO';if linenumber=1&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 2 "" NO';if linenumber=0&secret ~=30&ignore ~=10 then address command 'run >NIL: sendtoline 2 "E'username'" NO';if linenumber=0&secret ~=30&ignore ~=10 then address command 'run >NIL: sendtoline 2 "'confvar1'" NO';if linenumber=0&secret ~=30&ignore ~=10&zebra=90 then address command 'run >NIL: sendtoline 2 "'confvar2'" NO';if linenumber=0&secret ~=30&ignore ~=10&zzebra=100 then address command 'run >NIL: sendtoline 2 "'confvar3'" NO';if linenumber=0&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 2 "" NO';if linenumber=5&secret ~=30&ignore ~=60 then address command 'run >NIL: sendtoline 2 "E'username'" NO';if linenumber=5&secret ~=30&ignore ~=60 then address command 'run >NIL: sendtoline 2 "'confvar1'" NO';if linenumber=5&secret ~=30&ignore ~=60&zebra=90 then address command 'run >NIL: sendtoline 2 "'confvar2'" NO';if linenumber=5&secret ~=30&ignore ~=60&zzebra=100 then address command 'run >NIL: sendtoline 2 "'confvar3'" NO';if linenumber=5&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 2 "" NO';if linenumber=3&secret ~=30&ignore ~=40 then address command 'run >NIL: sendtoline 2 "E'username'" NO';if linenumber=3&secret ~=30&ignore ~=40 then address command 'run >NIL: sendtoline 2 "'confvar1'" NO';if linenumber=3&secret ~=30&ignore ~=40&zebra=90 then address command 'run >NIL: sendtoline 2 "'confvar2'" NO';if linenumber=3&secret ~=30&ignore ~=40&zzebra=100 then address command 'run >NIL: sendtoline 2 "'confvar3'" NO';if linenumber=3&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 2 "" NO';if linenumber=4&secret ~=30&ignore ~=50 then address command 'run >NIL: sendtoline 2 "E'username'" NO';if linenumber=4&secret ~=30&ignore ~=50 then address command 'run >NIL: sendtoline 2 "'confvar1'" NO';if linenumber=4&secret ~=30&ignore ~=50&zebra=90 then address command 'run >NIL: sendtoline 2 "'confvar2'" NO';if linenumber=4&secret ~=30&ignore ~=50&zzebra=100 then address command 'run >NIL: sendtoline 2 "'confvar3'" NO';if linenumber=4&secret ~=60&ignore ~=10 then address command 'run >NIL: sendtoline 2 "" NO';end;end;call end_it;IOERR:;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;address command "delete T:"||linenumber;call Exit_Door DoorName,LineNumber;exit 10;ERROR:;call cdetect doorname,linenumber;carrier=result;if carrier ~="Carrier OK." then call end_it;address command "delete T:"||linenumber;call Exit_Door DoorName,LineNumber;exit 10;end_it:;ii=0;do until ii=6;if exists('T:'||ii)=1 then;do;address command 'run >NIL: sendtoline 'ii '"'username' has exited from this fine conference." NO';end;ii=ii+1;end;address command "C:d >NIL: T:"||linenumber;call Exit_Door DoorName,LineNumber;exit 0